home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / DFUE / tangoß / Install_Defaultbrowser < prev    next >
Encoding:
Text File  |  2000-05-27  |  2.7 KB  |  87 lines
  1. ;defaultbrowser 1.0 installation script
  2.  
  3. (set #bye (cat "\ndefaultbrowser Install Complete!\n\n" ))
  4. (set #info (cat "\n\nWelcome to defaultbrowser.\n\nThis will install:\n\nc:defaultbrowser\nsys:prefs/Default Browser.info\n") )
  5. (set #wherecat "\nWhere do you wish to install the AmIRC Language Catalog? Default is ")
  6. (set #catnofind "Can not find this catalog in this  archive.")
  7. (set #whatcat "\nDefaultBrowser has no internal catalog.\nSelect the Language catalog you wish to install.\nThat language has to be selected in Prefs:Locales ")
  8.  
  9. (set #whatcathelp "If your language is not among the choises,\nYou must choose another language.")
  10.  
  11. (message #info)
  12.  
  13. ;copy main executable
  14. (copyfiles
  15.     (prompt "Copying main executable")
  16.     (source "defaultbrowser/defaultbrowser")
  17.     (dest "c:" )
  18.  
  19. )
  20. ;copy prefs icon
  21. (copyfiles
  22.     (prompt "Copying drawer icon")
  23.     (source "defaultbrowser/Default Browser.info")
  24.     (dest "SYS:Prefs/")
  25. )
  26.  
  27. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  28. (set lan 0)
  29. (if (= "english" lanfound) (set lan 0))  (if (= "deutsch"  lanfound) (set lan 1))
  30. (if (= "svenska" lanfound) (set lan 2)) 
  31.  
  32. (set #English    "English")  (set #Deutsch    "Deutsch")
  33. (set #Svenska    "Svenska")  
  34.  
  35.  
  36. (if (> (exists ("ENV:i.høld.0")) 0)   (set l0 (getenv "ENV:i.høld.0")) ) 
  37. (if (> (exists ("ENV:i.høld.1")) 0)   (set l1 (getenv "ENV:i.høld.1")) )
  38. (if (> (exists ("ENV:i.høld.2")) 0)   (set l2 (getenv "ENV:i.høld.2")) )
  39. (run "delete env:i.høld.#?")
  40. (set catalog (askchoice (choices  "English" "Deutsch" "Svenska")            
  41.                         (prompt #whatcat )
  42.                         
  43.                     (help   #whatcathelp)
  44.                         (default lan)
  45.              )
  46. )
  47.  
  48. (if (= catalog 0)  (set #lcat #English))  
  49. (if (= catalog 1)  (set #lcat #Deutsch))
  50. (if (= catalog 2)  (set #lcat #Svenska))  
  51.  
  52. (if (<> #lcat "N/A")
  53.  (
  54.   (if (> (exists (cat "defaultbrowser/Catalogs/" #lcat "/defaultbrowser.catalog")) 0)
  55.       (
  56.         (
  57.          (if (< (exists "Locale:") 2) ( (makedir "sys:Locale") (makeassign "Locale" "sys:Locale") ) )
  58.          (if (< (exists "Locale:Catalogs") 2) (makedir "sys:Locale/Catalogs") )
  59.          (if (< (exists (cat "Locale:Catalogs/" #lcat)) 2) (makedir (cat "sys:Locale/Catalogs/" #lcat)) )
  60.          (copyfiles (source (cat "defaultbrowser/Catalogs/" #lcat )) (dest (cat "sys:Locale/Catalogs/" #lcat)) (all) )
  61.         )
  62.   
  63.  
  64.       )
  65.  
  66.  
  67.     (message (cat "\nCatalogs/" #lcat "/defaulbrowser.catalog\n\n" #catnofind))
  68.   )
  69.  
  70.  
  71. ); End if Catalog dir
  72. ); 
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80. (if (> (exists ("c:multiview")) 0) (set #path "c:") )
  81. (if (> (exists ("sys:Utilities/multiview")) 0) (set #path "sys:Utilities") )
  82. (run (cat "run " #path "/multiview defaultbrowser/readme") )
  83. (run (cat "run defaultbrowser") )
  84.  
  85. (exit #bye (quiet))
  86.  
  87.